Meeting Pearls 2/Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso/Pearls/dev/TurboM2/m2/MathLib0.mod

Text File | 1995-01-23 | 801b | 35 lines

IMPLEMENTATION MODULE MathLib0 ;

IMPORT MathIEEEDoubTrans, MathIEEEDoubBas ;

PROCEDURE sqrt( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPSqrt(x)
END sqrt ;

PROCEDURE exp( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPExp(x)
END exp ;

PROCEDURE ln( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPLog(x)
END ln ;

PROCEDURE sin( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPSin(x)
END sin ;

PROCEDURE cos( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPCos(x)
END cos ;

PROCEDURE arctan( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPAtan(x)
END arctan ;

PROCEDURE entier( x : LONGREAL ) : LONGINT ;
BEGIN RETURN TRUNC( MathIEEEDoubBas.IEEEDPFloor(x))
END entier ;

END MathLib0.